$file1 = $ARGV[0];
open(BUFF1,$file1);
open(WRBUFF,">probe_$file1");

while($line = <BUFF1>)
{
	if($line =~ m/Cell(\d+)/ && $line =~ m/control/)
	{
		@line = split("\t",$line);
		@liney = split("\=",$line[0]);
		
		print WRBUFF $line;
		
	}
}
